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| **F ILE®*1D**BASSCALE 


rere ey vee) 
kasd uuu udu 
ives) tas La uuu 
sus sus wus 
Uk eaee) wud 
usu wus wud 


a4 
a4 
a4 
a4 
a4 
su 
a4 
44 
ee 
a a ee ee ee 
ba So Sos Sos o> > o> > > > > S 
222222222222 
<< <= 
<< <= 
<< < 
<< == 
<< < 
<< << 
Sa Sa Sa > So: o> o> o> So > > > 3 
<aqqeaeaeadtaetacaacae 
VV vv 
Vv Vv 
Vv vv 
Vv Vv 
pare) vv 
Vv Vv 
wv vv 
Vv vv 


VYVVVYVYVYYYUYU 
VVYUVYVYUYYUYUUWY 


wn MMMM 
mm nw “ww 
mn nn mn 
mn wn “ww 
nn nn nw 
mw nn nw 
mm mn nn 
MMMM ”“”w 
MNMWMM nn 
mm MMMNwn 
nn MMMM 
mn mn nn 
nn mown nn 
mw mn nw 
nw “wn nn 
nw “wn nn 
mn mn nw 
MNMMNYM nn 
MMMM wn 


33 3 

23 = 
$$4445225455 
geen seae 
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BASSSCALE 16-Sep-1984 01:12:07 AX=11 Bliss-32 V4.0-74 
? 19-808-1382 04 348:95 YBASRTL SRE BASSCALE.B32;1 

A 001 © MODULE BASSSCALE ( ' Support scalin 

Pee O00 IDENT = "1-008" i File: BASSCALE-B32 Edit: PLL1008 

| Be ie 

: 6 00 1 i eeeeeeereeeeeeeeeeeeereneeeeerereeeeererererereeeeeeeeeeeenetereneeeeeeeeeee 

* 7 Boos 1 '® ae 

taf 008 1 i COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 

.. § 009 1 i DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. . 

; 10 9019 is ALL RIGHTS RESERVED. * 

© 4 ” 

; ig O01¢ 1 is THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 

i 0013 1 i* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 

>: 0014 1 i* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 

es; | 0015 1 i® COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 

; (16 0016 1 it OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 

; v7 0017 ie TRANSFERRED. * 

$ it we 

: #19 0019 1 i* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 

cy 2 0020 1 '* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 

; ei 9021 is CORPORATION. . 

o o ok 

; 38 0098 1 is DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 

. 0024 1 i* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 

gf Bek 3 

: 27 +54 1 i eeeeeeerereeeeeereteneeeeeeneeeeeeeererereerenreeteneeeeeeneeeeeeeeeeeeeeee 

> «28 0028 1: 

: 29 0029 1: 

: ° isi 1 ++ 

: 32 0052 i FACILITY: BASIC-PLUS-2 Miscellaneous 

; 4 0034 i ABSTRACT: 

: 6 0036 1 This module contains compiled code support routines 

3 i st 44 ; } for scaling and descaling. 

: 39 0039 ; ENVIRONMENT: VAX=11 user mode 

; 41 0041 i AUTHOR: John Sauter, CREATION DATE: 08-MAY-1979 

; 8 Does ! MODIFIED BY: 

3: 65 boe8 1 § 1-001 - Original. 

> 46 0046 1 | 1-002 - Add BASS$SCALE_R1. JBS 29-MAY-1979 

3 rtf : } 1-003 = Use ett to fetch double-precision numbers. 

: 449 § 1 | 1-006 = Add BASSSSCALE_L_R1. JBS 26-JUN-1979 

; 650 50 1 § 1-005 = Change MTHSFLOOR-D to MTHSDFLOOR. JBS 27-JUL-1979 

> «51 51 11 1. 06 - Change BASSSCOPY"D to BASS COPY_0.R1. JBS €$-AUG-1979 

; ; 3 1} 1-007 - Change MTHSDFLOOR to MTHSDINT. “UBS 19-DEC-1979 

3; 3 53 1 ! 1-008 - Remove the check for 4 BASIC frame from BASSSCALE_D_R1 

> = 54 1! and BAS DScALe p R (This is so BASSCHANGE can Call 

: 56 35 ; them.) PLL 22=MAY-1981 

; $ 008? a: 


pASsscaLe 1$-ep-1966 01:12:07 yanedt Linge 32 ve 
; $8 0058 1 '<BLF/PAGE> : 


mm 
wn 
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H 11 
BASSSCALE 1enSep-1986 11:56:99 EBASRTL SRE SBASSCALE-039;1 ee 


SWITCHES: 


SWITCHES ADDRESSING_MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 


1 
f X i LINKAGES: 
' 
20 REZUIRE "RTLIN:BASLNK’; ! BASIC Linkages 
, LINKCOPY_JSB.= JSB (REGISTER REGISTER = 1) 
= =z 0, = : : 
e NOTUSED (2, 4, g! 6, 7, o 9, 10, 11); 


TABLE OF CONTENTS: 


FORWARD ROUTINE 
BASSSCALE_D_R1_ : NOVALUE BASSSCALE_LINK, 
BASSDSCALE_B_R1 : NOVALUE BASSSCALE LINK, 
BASSSSCALE_RT : NOVALUE BASSSCALE_JSB, 
BASSSSCALE_L_R1 : BASSSCALE_JSB; 


Scale a number 

Descale a number 

Fetch the scale as double 
Fetch the scale power 


OWONOAVUE WN "OVOO~wO O 


INCLUDE FILES: 


wr 


ii a et ed at ot SOOO OOO 
Frodo 


REQUIRE *RTLIN:BASFRAME'; 
LIBRARY ‘RTLSTARLE’; 
REQUIRE *RILIN:RTLPSECT’; 


BSF symbols 
symbols for strings 


A RE RE A te te A eraC 


macros for defing psects 
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TAR WW SORT ARAL LH OOBNIEAE MG LOOM OME I OOS 


] 
i MACROS: 
9 1} 
01} NONE 
1 71 13 
1 r i EQUATED SYMBOLS: 
: ae yi NONE 
1 75 13 
76 1 | PSECTS: 
! ? DECLARE_PSECTS (BAS); ! declare psects for BASS facility 
i OWN STORAGE: 
i 
: JB \ pceclleome 
4 1 | EXTERNAL REFERENCES: 
1 4 , 
1 EXTERNAL ROUTINE 


Be Se SoBe Be Se Se Se SK Se Se Se Se Ge Se Se Se Se Se Se Se Se Be Se Se Geese Se ese Fee Be Oe Se Se Ge Se Se ee Fe Se Se Se Se Se ee Se Se Se Se Se ae Se Se Se Seas 


Te D.R1 : COPY_JSB NOVALUE, 


282832 


a 


—- foe 


1 1: AX-11 Bliss-32 V4.0-74 P 4 
e9-1984 FyigieS KSAT ObAe Sane VAre og. og? 123 
! Remove fraction part ; 

! Move a D_float number 

: Diviseb. D_float numbers 


! Divide D_ffoat numbers 
' BASIC frame marker 


1 
SSCALE 1b-Se “19 1:12:07 AX-11 Bliss-32 V4.0-74 P 5 8 
[ ae atts ie eT et ag Ok Pt og Be age 3 1 
: 4 GLOBAL ROUTINE BASSSCALE_D.R1 t Scale. value 
° . = $s 0 value 
! Low mie bs of value 


VALLO 
) : NOVALUE BASSSCALE_LINK = 
'e¢ 


FUNCTIONAL DESCRIPTION: 


Scale a value. This is done by multiplying by the scale factor 
and integerizing the result. 


EWN —OOONOUE 


FORMAL PARAMETERS: 


VAL.rd.v The D_floating value to be scaled, presented to 
BLISS as VALHI and VALLO. 


oO 


FRSA SSS IEEE 
FUSUSUSUSISISISI SII 


DUP PUP PUPUPVPUPUPUDUPUPVDVPUPUPULUPUSIUSU SUSU SUSU SSTTTIT 


MEEPS EEE PW 
SOONOUS WOO 


IMPLICIT INPUTS: 
The scale factor, in the major frame. 
IMPLICIT OUTPUTS: | 
NONE 
ROUTINE VALUE: 
The scaled, double precision number. 
COMPLETION CODES: 
NONE 
SIDE EFFECTS: 
May get arithmetic faults. 


BEGIN 


EXTERNAL REGISTER 
BSFSA_MAJOR_STG : REF BLOCK CO, BYTE] FIELD (BSFSMAJOR_FRAME), 
BSFSA_MINOR-STG, 

BSFSA-TEMP_STG; 


EUV SGONOUNE WN OOD NAN EUV HOODIE ARGU ODB RE 


CRPIPIPIPIMONIMPIPIPININIPIN NIN II 3 at a at a i i i i a a a dd dd 
* 


LOCAL 
VAL : VECTOR C2, LONG); ! D_floating value being manipulated 


'¢ 
: Save the input value, so we get some registers to work with. 


VAL 93 = .VALHI; 
VAL C1) = .VALLO; 


BEGIN 


NNNOOAAO AAMT Se Sea heSweey 
SSVI RAV SSS SAFER IS SRNL SSSERSESESSES 


SOOOSOSCOOOCOOCOCOOSOOSOOOOSOOOOOOOOSOOOOOOOoOOO 


ASSSCALE -$ep-1984 01:12:07 AX-11 Oi ie -32 v4.0- Pa 
ee ht 1§-ep-1984 94558:% BASRTL SRC} BASSCALE. 33, 31 - (35 
' + ' 
; j_ Mult toty the argument by the scale factor, and then integerize. 


LOCAL 
MAJOR. FMP : REF BLOCK C, BYTE) FIELD (BSFSFCD); 


FMP = BSFSA_MAJOR STG C[BSFSFRAME_BASE): 
BAS SAULD (VAL 03. MAJOR_FMP CBSFSD_SCALE_DOUJ, VAL (OJ); 
BTHSDINT (VAL C 


See Ge Ge Ge Ge Ge Ge Ge Ge ee Gee 
to ee 4 4 tt 


Com OS Ooo au 


6 3 
6 RETURN; 
6 END; ! of BASSSCALE_D_R1 
TITLE BASSSCALE 
SIDENT \1-008\ | 
.EXTRN MTHSDINT, BASSSCOPY_D_R1 
“EXTRN BASSSMULD, BASSSDIVE 
SEXTRN BASSHANDLER 
-PSECT _BASSCODE.NOWRT, SHR, PIC,2 
| 
5E 04 C2 00000 BASSSCALE_D_R1:: 
SOeC2 #4, SP +: 04696. 
0 0D 00003 PUSHL VALHI ; 0547, 
04 af 1 pO 00005 MOVL VALLO ; 0548. 
5 00c3 CB 9E 00009 MOVAB 19 ERI). tAAJOR. FMP : 0558. 
5 bb 000 PUSHL SP : 0559. 
DO} «6A0 «(9F 0001 PUSHAB =48(MAJOR_FMP) : 
08 7 9F 0001 PUSHAB VAL : 
00000000G 00 9 4 0016 CALLS #3, BASSSMULD 3 
iq 01D PUSHL SP : 0560. 
000000006 90 1 0036 CALL #1, MTHSDINT 3 | 
t 8 ADDL2 #8, SP + 0563 | 
80059 RSB : | 


; Routine Size: 42 bytes, Routine Base: _BASSCODE + 0000 


: 194 0564 1 


————_--—--- 


11 
ASSSCALE 16-Sep-19 1:12:07 AX-11 Bliss-32 V4.0-74 Page 7 
4 122808-1 38 94:58:95 BASRTL.SRC JBASSCALE .832;1 (4) 
ce GLOBAL ROUTINE BASSDSCALE_D_R1 ( ! Desca § a value 
1 VALHI, ! High Se-bits of value 
1 VALLO ! Low 32-bits of value 
1 ) : NOVALUE BASSSCALE_LINK = 


ee 
FUNCTIONAL DESCRIPTION: 
Descale a value. This is done by dividing by the scale factor. 


! FORMAL PARAMETERS: 


VAL.rd.v The D floating value to be descaled, presented 
to BLISS as VALHI and VALLO. | 


OOQQOGOCOCOOOOCoOoOoo 


PUP PVULVLUPUPUSUSVSUSISUSVSUSISUSISUSISIST 
109 C9 CD 09 C9 09 09 09 09 09 SINISE NOP OOO 


SSHNAUN UV OOONAAPWVAOSRUR RR MUO SSO Ee 
DWONANE WN OVODOVNOUE WN" OVOONOu 


H 1 

; 1 

; 1 

: 1 

; 1 

; 1 

; 1 

H 1! 

; , } 

; . | 

; 1! 

; 1 | 

; 1; 

; 1} 

; 7; 3 

; +: 

; . | 

; 8 1 IMPLICIT INPUTS: 

3 0 } The scale factor, in the major frame. 

: $8 1 ! IMPLICIT OUTPUTS: 

; 05 1! 
; 05 7! NONE 
: 05 ,} 
3 Beas ; : ROUTINE VALUE: 
; Bene } : The descaled, double precision number. 
; 5 0594 1 ! COMPLETION CODES: 
;§ $396 1 | NONE | 
3 § ba99 1! 
; 0598 1 ! SIDE EFFECTS: 
B 2 0599 1! | 
; 231 0600 1 ! May get arithmetic faults. 
; $ 0601 1! 
S ge 0602 1 !-- | 
3 234 0603 1 
; 235 0604 BEGIN 
3 en 0605 
3 @ov pene EXTERNAL REGISTER 
: 38 60 BSFSA_MAJOR_STG : REF BLOCK CO, BYTE] FIELD (BSFSMAJOR_FRAME), 
; 33 608 BSFSA_MINOR-STG, 

3; 24 6 BSF SA_TEMP_STG; 

; 241 610 

: 24 611 

; 24 golg LOCAL ; ‘ 

; See oot? VAL : VECTOR (2, LONG); ! D_floating value being manipulated 

: 26 15 2 !+ 

: if sis : Save the input value, so we get some registers to work with. 

; 249 O68 VAL fo} = .VALHI; 

: 50 1 VAL C1J = .VALLO; 

: 251 os 

3 ane 0621 BEGIN 


LOCAL 


ooo 


REGISTER 
6 RO = 0 
6 R] 
8° 
6 RO = .VA 
06 Ri = 
06 END; 
06 END; 
06 RETURN; 
06 D; 
04 
000000006 


1+ | 
Divide the argument by the scale factor, then load into RO and R1. 
MAJOR_FMP : REF BLOCK C, BYTE] FIELD (BSFSFCD); 


MAJOR FMP = BSFSA_MAJOR_ STG CBSFSFRAME_ 


BAS$$1VD (MAJOR_FMP CBSFSD_SCALE_DOUJ, VAL fol. vAL (0); 


! of BASSDSCALE_D_R1 


o 
= 


C2 00000 can” r R1: 


Vit MAJOR. FMP 


VAS (MAJOR FMP) 
#3, BASSSDIVD 


CoOOrrunuvw 
MNommn@w—oO 
ON™MNOOSO O 
mows OMmM 
Sete Se Se Se Se Se Se Se Se 


-BASSCODE + 002A 


33 bytes, Routine Base: 


0643 1 


; 


N 11 | 
BASSSCALE 16-Sep-1984 01:12:07 AX-11 Bliss-32 V4.0-74 Page 9 
S808 1e-8eb=13ee 1i5eis9 — FANSAT Ph degaRe Vhs 0-243. , «55 
: 27 44 1 GLOBAL ROUTINE BASS$S$SCALE_R1 ( ! Fetch the scale 
3; ar 645 1 FMP ! Frame containing scale 
: i oe8 } ) : NOVALUE BASSSCALE_JSB = 
; 280 bere 1 lee 
; + B98? : FUNCTIONAL DESCRIPTION: 
3; 2 0651 1! Fetch the scale value from a frame. This routine is for use by 
; 284 $636 1! math routines to fetch the scale from their caller. If the 
3 +H 8827 : frame is not a BASIC frame, a double-precision 1.0 is returned. 
H 44 bees ! FORMAL PARAMETERS: 
; 9 0657 1! FMP.ra.v The (possibly BASIC) frame containing the scale 
: 290 0658 1! factor. 
; 291 0659 1! 
3 3 0660 1 ! IMPLICIT INPUTS: 
; 29 0661 1 ! 
; 294 0662 1! The scale factor, in the major frame. 
$ $3? 0663 1! 
; 96 0664 1 ! IMPLICIT OUTPUTS: 
; 297 0665 1! 
: 298 0666 1! NONE 
3 $38 0667 1! 
; 300 0668 1 ! ROUTINE VALUE: | 
3 wor 0669 1! i 
3 $08 beee : The scale factor, as a double-precision number. 
3 302 067 1 ! COMPLETION CODES: 
; 305 0675 1! 
3 $09 0674 1! NONE 
: 307 0675 1! 
; 308 0676 1 ! SIDE EFFECTS: 
; 309 0677 1! 
; 310 0678 1! May get arithmetic faults. 
s St 0679 1! 
3 $15 0680 1 !-- 
ae) 0681 1 
3; 314 068 BEGIN 
s 6303 068 
s 316 0684 MAP 
3; 317 0685 FMP : REF BLOCK C, BYTE) FIELD (BSFSFCD); 
; 318 pons 
3 19 B68 '¢ 
: 320 688 ! If this is not a BASIC frame, return 1.0. 
BBB BE 
; 38 sed IF (.FMP CBSFSA_HANDLER] NEQA BASSHANDLER) 
; 325 069 BEGIN 
5 6 694 
; $8 begs REGISTER 
; 328 69 RO = 0, 
: $3 69 R1 = 1; 
3 0 698 
: 331 0699 BUILTIN 
s 332 0700 CVTLD; 


14-Sep-19 13 


: 33? 70 CVTLD (XREF (1), ROD 

: 5 7 § 

; 704 ELSE 

: 705 BEGIN 

; 8 7 $ '¢ 

$ 9 7 ! Otherwise return the real scale factor. 

; 340 708 te 

: 41 709 

5 ri} 0710 CAL 

3 4 0711 MAJOR_FMP : REF BLOCK C, Hy FIELD (BSFSFCD) 
3 4 gris BSF SA. “MAJOR stg: REF ~ . BYTE] FIELD (BSF SMAJOR_FRAME), 
H rf tae VAL ECTOR C LONG); 

3 47 0715 BS* SA_MAJOR_STG = ay Castes BASE_R11) 

: 348 0716 MAJOR-FMP ="BSFSA_MAJOR STG CBSFSFRAME BASE); 

: 349 0717 BASSSCOPY_D_R1 (ny OR. FAP CBSF$D_SCALE-DOUJ, VAL); 
3 50 0718 4 BEGIN 

3 51 0719 4 

3 26 0720 4 REGISTER 

. = 0721 4 RO = 0, 

; 354 O7s¢ 4 R1 = 1; 

3s 355 0725 4 

3. 336 Brse 4 RO = —_ 0); 

. Sor 0725 4 Ri = 13; 

$ $26 0726 3 END; 

3 59 0727 2 END; 

; 360 0728 2 

; 361 1494 2 RETURN; 

; 362 0730 1 END; ! of BASSSCALE_R1 


5E 


oO 
co 


C2 00000 BASSS$SCALE_R1:: 
UBL2 #8, SP 


51 50 DO 00003 MOVL RO, R1 
50 000000006 00 9€E 00004 MOV BASSHANDLER, RO 
50 61 D1 0000D CMPL (FMP), RO 

05 13 00010 BEQL si 
50 01 6€ 00012 CVTLD #1, RO 

15 11 0001 BRB 
50 F4 Al gO a aed 1$ MOVL ~12(FMP), BSFSA_MAJOR_STG 
51 6€ 9 0001B MOVAB 
50 0093 CO 9€ O001E MOVAB 147(R0), RO 

000000006 00 16 9002 JSB BAS$SCOPY_D_R1 
50 6 7D 00029 MOVa—s- VAL, 
SE 08 co d00¢¢ 2$ ADDL2 #8, SP 
05 0002F RSB 


; Routine Size: 48 bytes, Routine Base: _BASSCODE + 0048 


1 


: 363 0731 


12 
IEREEHORE TMG WOH SMe th 2, 


31 
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Bete Se Se Se Se Se Se Se Se Se Be Be Be 


(5) 


-o | 


¢ 
oat 


WAAAY NWA 


WWW 
SEBSSESESES ESTE 


SRISAE 


SRK RLL ELLER EEE 


NOM AS te 
—SODOOnouslwn—o 


12 
16-Sep-1984 91:12:07 AX-11 Oi ies -32 V4.0-74 
14-Sep-1984 11:56:39 BASRTL.SRC SBASSCALE.B3 31 
07 ¢ 1 GLOBAL ROUTINE BASSSSCALE_L_R1 ( ' Fetch the scale 
8 1 MP ! Frame containing scale 
734 «1 ) : BASSSCALE_JSB = 
0735 1 
8 $ 1 !e4 
f i ! } FUNCTIONAL DESCRIPTION: 

87 y 3% Fetch the scale value from a frame. This routine is for oy by 
0740 1! math routines to fetch the scale from their caller. If the 
oR : frame is not a BASIC frame, 0 is returned. 
ares : FORMAL PARAMETERS: 
0745 1! FMP.ra.v The (possibly BASIC) frame containing the scale 
0746 1! factor. 
0747 1! 
0748 1 =! IMPLICIT INPUTS: 
0749 1! 
63 : The scale factor, in the major frame. 
0736 1 ! IMPLICIT OUTPUTS: 
0755 1! 
0754 1! NONE 
0755 1! 
0756 1 ! ROUTINE VALUE: 
0757 1! 
163 ! } The scale factor, as an integer power of 10. 
bF20 1 ! COMPLETION CODES: 
0761 1! 
1434 1! NONE 
0765 1! 
0764 1 ! SIDE EFFECTS: 
0765 1! 
0766 1! NONE 
0767 1! 
0768 1 !-- 
0769 1 
0770 § BEGIN 
0771 
tak: é MAP 
grr? 2 P : REF BLOCK C, BYTE] FIELD (BSFSFCD); 
0775 '¢ 
g77e i If this is not a BASIC frame, return 0. 
greg f 
pene IF (.FMP CBSFSA_HANDLER] NEQA BASSHANDLER) 
0780 THEN 
0781 0 
07 g ELSE 
07 BEGIN 
0784 '¢ ; 
4 5 : Otherwise return the real scale factor. 
0787 
0788 LOCAL 


— 


—@w 


Be Se Oe Se Se Se Fe Se Se Se Se Se Se Se Se Se Se Se Se Se Ge Se Se Se Se Se Se Ge Se Se Seas se Sete SHES Se Se Se Ge Se Se Se Se Se Se Se Se Se Se Seases ee tease 


D 12 
BASSSCALE $ep-1984 01: 7 AX-11 Bliss-32 v4.0-74 Page 12 
ett aS) Pa ET oe Ee hd PP 24 9 6) 
: 6 2 789 MAJOR_FMP : REF BLOCK C, BYTE] FIELD (BSFSFCD) 
: 4 790 BSFSA-MAJOR stg : REF BLOCK C, BYTE] FIELD (BSFSMAJOR_FRAME), 
; : : 144! VAL : VECTOR C2, LONG); 
aR: 6 79 BSFSA_MAJOR_STG = .FMP CBSFSA_BASE_R11]; 
; 4 79% MAJOR-FMP ="BSFSA_MAJOR_STG_ CBSFSFRAME_BASE); 
: 4628 795 -MAJOR_FMP CBSF$B-SCA_V-DOU) 
: 429 79 END 
: 430 79 
: 431 0798 1 END; ! of BASS$SCALE_D_R1 
SE 08 (C2 00000 BASS$SCALE_L_R1: 
SUBL2 SP 3 0732) 
51 000000006 00 9E 00003 MOVAB BASSHANDLER, R1 : 0779) 
51 60 D1 OOOOA CMPL (FMP), R1 : 
04 13 00000 BEQL : 
50 04 O000F CLRL =s_- RO : 
0D 11 60011 BRB : 
50 F4 AO DO 00013 18: MOVL 4g (Emr MP) « 4BSESA pPAJOR. STG : 0793 
50 00c3. CO 9E 00017 MOVAB 195(RO) FMP + 0794. 
50 CD AO 98 0001C CVTBL api navn” FAP) RO + 0795. 
5€ 08 co 90020 2$ ADDL2 . : 0798 
05 00023 RSB ; 
3; Routine Size: 36 bytes, Routine Base: _BASSCODE + 0078 
: 432 0799 1 
: 433 0800 1 END 
3 434 0801 1 
: 435 0802 0 ELUDOM 
; PSECT SUMMARY : 
3 Name Bytes Attributes é 
3 BASSCODE 159 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL. CON, PIC.ALIGN(2) ; 
3 Library Statistics : 
: woceeeee § ymbols eceecceces Pages Processing - 
: File Total Loaded Percent Mapped Time 
3 _$255$DUA28:(SYSLIBISTARLET.L32;1 9776 0 0 581 00:01.0 


$ep-1984 01: AX=11 Bliss-32 V4. Pa 13 
‘bee 9 48: 8 BASRIL SREIBASSCALE 03 B32;1 = (6) 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /NOTRACE/LIS=LIS$:BASSCALE/OBJ=OBJ$:BASSCALE MSRC$:BASSCALE/UPDATE=(ENH$:BASSCALE) 


159 code 3 0 data bytes 


un Time : 
rte y Time: 00:21.2 
Lines/CPU Min: 6075 
‘Newest de 24098 

penery Used: 57 pages 
Compilation Complete 


003 AH-BT13A-SE 
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